Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/BSCRIPTS.CST/00054_Script_tour button

Text File | 1999-04-25 | 2KB | 83 lines

-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------
-------*This script is not used in this version of the movie*----------

property Rimage,Dimage,image,sprt, origNum, rollNum

on new me
  --    set origName = the name of member the member of sprite the spriteNum of me
  --
  --  set rollName = origName&"-roll"
  --  set origNum = member origName
  --  set rollNum = member rollName
end


on getPropertyDescriptionList
  set description=[:]
  --  addProp description,#Rimage,[#default:"",#format:#integer, ¼
--  #comment:"The cast num for rollover image"]
  --
  --  addProp description,#Dimage,[#default:"",#format:#integer, ¼
--  #comment:"The cast num for the image when the mouse is down"]
  --
  --  addProp description,#image,[#default:"",#format:#integer, ¼
--  #comment:"The cast num for the image when not rolled over"]
  --
  addProp description,#sprt,[#default:"",#format:#integer, ¼
  #comment:"The sprite number "]

  return description
end

on getbehaviorDescription
  return "changes the image on rollover"
end

on mouseenter me
  --  set the member of sprite sprt = member rollNum
  set the castnum of sprite sprt to the castnum of sprite sprt +1
  updatestage
end
on mouseleave me
  set the castnum of sprite sprt to the castnum of sprite sprt -1
  --  set the member of sprite sprt = member origNum
  updatestage
end

on mouseup
  global gFrame, menuController
  set gFrame=the frame
  sound stop(1)
  sound stop(2)
  updatestage

  if the name of member the member of sprite sprt contains "-roll" then
    puppetsound 3,"qtvrstrt"
  else
    puppetsound 3,"mousedn"

    if IsQTVRMovie(gQTVRObj) then
      getview
      closemovie
    else
      puppetsprite 22 false
    end if
  end if
  --  sendAllSprites(#CDSmallMenuPuppetsOff)
  --  sendAllSprites(#CDMenuPuppetsOff)
  --  sendAllSprites(#layoutPuppetsOff)
  deselect menuController
  pass
end